% callback routine initialize_elastance_parameters
% reads parameters from text boxes and sliders
% and fills them into the parameter space

HandleEditTextHR=findobj(gcf,'Tag','EditTextHR');
HR=str2num(get(HandleEditTextHR,'String'));

HandleEditTextEmaxV=findobj(gcf,'Tag','EditTextEmaxV');
EmaxV=str2num(get(HandleEditTextEmaxV,'String'));

HandleEditTextTEmaxV=findobj(gcf,'Tag','EditTextTEmaxV');
TEmaxV=str2num(get(HandleEditTextTEmaxV,'String'));

HandleEditTextEminV=findobj(gcf,'Tag','EditTextEminV');
EminV=str2num(get(HandleEditTextEminV,'String'));

HandleEditTextVdeadV=findobj(gcf,'Tag','EditTextVdeadV');
VdeadV=str2num(get(HandleEditTextVdeadV,'String'));

HandleEditTextPvenous=findobj(gcf,'Tag','EditTextPvenous');
Pvenous=str2num(get(HandleEditTextPvenous,'String'));

HandleEditTextT_interval=findobj(gcf,'Tag','EditTextT_interval');
t_interval=str2num(get(HandleEditTextT_interval,'String'));

T=60/HR;
time=(t_interval:t_interval:T)';			% make a column vector representing time
npoints=length(time);

HandleAxesElastance=findobj(gcf,'Tag','AxesElastance');
set(HandleAxesElastance,'NextPlot','replace');

HandleAxesDelayAV=findobj(gcf,'Tag','AxesDelayAV');
set(HandleAxesDelayAV,'NextPlot','replace');

